home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / PORTAL.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.2 KB  |  53 lines
  1. # Portal Direct PPP and SLIP script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-9-95
  4.  
  5. STRING username
  6. STRING password
  7. STRING IPaddress
  8. STRING framing
  9.  
  10. #TRACE ON
  11. SetTimeout 90                      # reset maximum script timeout
  12.  
  13. # Get username from access method
  14. CfgGetValue "Username" username
  15. IF result = 0 THEN
  16.     ABORT "Can't load Username from qdeck.ini"
  17. ENDIF
  18.  
  19. # get password from access method
  20. CfgGetValue "Password" password
  21. IF result = 0 THEN
  22.     ABORT "Can't load Password from qdeck.ini"
  23. ENDIF
  24.  
  25. CfgGetValue "Framing" framing
  26. IF result =0 THEN
  27.     ABORT "Cannot load framing value from QDECK.INI!"
  28. ENDIF
  29.  
  30. CommSend    "%r%r%r"
  31. CommWaitFor "help:"
  32. CommSend    "ip%r"
  33.  
  34. CommWaitFor "login:"
  35. CommSend    username
  36. CommSend    "%r"            # send carriage return
  37.  
  38. CommWaitFor "password:"
  39. CommSend    password
  40. CommSend    "%r"            # send carriage return
  41.  
  42. IF framing = "MPSLIP" THEN
  43.     PRINT "Getting IP Address for SLIP."
  44.     CommReadIPAddr IPAddress
  45.     IF result < 7 THEN                     # IP Address length test
  46.         ABORT "Missing or invalid IP Address."
  47.     ENDIF
  48.     CfgSetValue "IPAddress" ipaddress
  49.     PRINT "IP Address set to:"; ipaddress
  50. ENDIF
  51.  
  52. END
  53.